(de thread "Bodies"
  (let ("Statement" (car "Bodies")
        "Bodies" (cdr "Bodies") )
    (for "Body" "Bodies"
      (setq "Statement"
        (if (atom "Body")
          (list "Body" "Statement")
          (cons
            (car "Body")
            "Statement"
            (cdr "Body") ) ) ) )
    (eval "Statement") ) )